diaedg Function

function diaedg(x0, y0, x1, y1, x2, y2, x3, y3)

************80

DIAEDG chooses a diagonal edge.

Arguments

Type IntentOptional Attributes Name
real(kind=8) :: x0
real(kind=8) :: y0
real(kind=8) :: x1
real(kind=8) :: y1
real(kind=8) :: x2
real(kind=8) :: y2
real(kind=8) :: x3
real(kind=8) :: y3

Return Value integer(kind=4)


Variables

Type Visibility Attributes Name Initial
real(kind=8), public :: ca
real(kind=8), public :: cb
real(kind=8), public :: dx10
real(kind=8), public :: dx12
real(kind=8), public :: dx30
real(kind=8), public :: dx32
real(kind=8), public :: dy10
real(kind=8), public :: dy12
real(kind=8), public :: dy30
real(kind=8), public :: dy32
real(kind=8), public :: s
real(kind=8), public :: tol
real(kind=8), public :: tola
real(kind=8), public :: tolb